home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / Science / Biology / LabHelper3.1.sea Folder / LabHelper 3.1 / LabHelper / LabHelper.rsrc / LENS_135_Find < prev    next >
Encoding:
Text File  |  1993-09-23  |  3.5 KB  |  81 lines

  1. ItemType: WIND
  2. Rect: 137,126,502,271
  3. Style: Windoid
  4. HasTitleBar: TRUE
  5. HasZoomBox: FALSE
  6. HasCloseBox: TRUE
  7. HasGrowBox: TRUE
  8. MinSize: 365,145
  9. MaxSize: 365,350
  10. Name: Find
  11. Script: --on windowEvent  --wdID,wdName,objNo,objName,objValue¬if objValue="Open" then ¬  wsSet wdID,"userEnter","Text", ""¬  wsSet wdID,"path","Text", ""¬  wsSet wdID,"8","Value", "0"¬  ¬  --else if objValue="Close" then ¬  ¬  --else if objValue="Suspend" then ¬  ¬  --else if objValue="Resume" then ¬  ¬  --else if objValue="CloseBox" then ¬  ¬  --else if objValue="ZoomBox" then ¬  ¬  --else if objValue="GrowBox" then ¬  ¬  --else if objValue="TitleBar" then ¬  ¬end if¬¬--end windowEvent¬¬
  12.  
  13. ItemType: PUSH
  14. Rect: 269,113,341,133
  15. Name: Find
  16. DefaultItem: TRUE
  17. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬put empty into searchFor¬put empty into buildList¬wsSet wdID,"path","Text", ""¬wsSet wdID,"Cancel","Disabled", "true"¬get wsGet(wdID,"userEnter","Text")¬put it into searchFor¬if searchFor ≠ empty then¬  put the number of cards in this stack into x¬  wsSet wdID,"completed","Max", x¬  lock screen¬  if x > 1 then¬    put the number of this card into returnPoint¬    go to the first card of this stack¬  end if¬  wsSet wdID,"8","Value", "1"¬  find searchFor¬  if the result is not empty then¬    put "No occurrences found..." into buildList¬  else¬    put the id of this card into LoopCheck¬    put the foundText&":"&&the short name of this cd&return after buildList ¬    go next cd¬    put the number of this cd into i¬    wsSet wdID,"8","Value", i  ¬    put empty into currID¬    repeat until currID = LoopCheck¬      find searchFor   ¬      put the id of this card into currID¬      if currID = LoopCheck then ¬        exit repeat¬        wsSet wdID,"8","Value", x¬      end if     ¬      put the foundText&":"&&the short name of this cd&return after buildList¬      put the number of this cd into i¬      wsSet wdID,"8","Value", i  ¬      go next cd¬    end repeat¬  end if¬  wsSet wdID,"8","Value", x¬  wsSet wdID,"Cancel","Disabled", "false"¬  wsSet wdID,"path","Text", buildList¬  if x > 1 then go to card returnPoint¬  wsSet wdID,"8","Value","0"¬  unlock screen¬end if¬¬--end mouseUp¬¬
  18.  
  19. ItemType: PUSH
  20. Rect: 161,113,241,133
  21. Disabled: TRUE
  22. Name: Cancel
  23. CancelItem: TRUE
  24. AutoClose: TRUE
  25.  
  26. ItemType: TEXT
  27. Rect: 42,16,353,38
  28. Name: userEnter
  29. LockText: FALSE
  30. Script: --on closeField  wdID,wdName,objNo,objName,objValue¬--end closeField
  31.  
  32. ItemType: LIST
  33. Rect: 7,55,353,105
  34. AutoSize: FALSE
  35. GrowItem: TRUE
  36. Name: path
  37. Logic: Single
  38. Text: 
  39. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬put the name of this card into imHere¬get wsGet(wdID,"path","selectionText")¬if it = empty then ¬  ¬else if it = "no occurrences found..."  then¬  beep¬else¬  delete word 1 of it¬  put it into goTo¬  if goTo ≠ imHere then¬    if word 1 of goTo = "card" then ¬      go to goTo¬    else¬      go to card goTo¬    end if¬  end if¬end if¬--end mouseUp¬¬¬
  40.  
  41. ItemType: LBL
  42. Rect: 7,43,120,55
  43. TextFont: Geneva
  44. TextSize: 9
  45. Text: All Occurrences Found...
  46.  
  47. ItemType: LBL
  48. Rect: 7,19,42,35
  49. Text: Find:
  50.  
  51. ItemType: PUSH
  52. Rect: 8,113,88,133
  53. Name: Clear
  54. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬wsSet wdID,"userEnter","Text", ""¬wsSet wdID,"path","Text", ""¬wsSet wdID,"8","Value", "0"¬--end mouseUp
  55.  
  56. ItemType: CNTL
  57. Rect: 24,3,331,12
  58. Disabled: TRUE
  59. BlackColor: 0,0,26214
  60. Name: Completed
  61. Style: 320
  62. Min: 0
  63. Max: 2
  64. Value: 0
  65. Step: 1
  66. Leap: 10
  67.  
  68. ItemType: TEXT
  69. Rect: 5,1,24,13
  70. TextFont: Geneva
  71. TextSize: 9
  72. BlackColor: 0,0,26214
  73. Text: 0%
  74.  
  75. ItemType: TEXT
  76. Rect: 331,1,362,13
  77. TextFont: Geneva
  78. TextSize: 9
  79. Name: 100%
  80. BlackColor: 0,0,26214
  81. Text: 100%